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DIF DATA WSodeoctone 25:58:35 WMeIT LisseR2 ye OC7Hg | | Page} 
MODULE DIF _DATA ( ! Differences data base 


penance. (BU 18882), 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD. MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

ie THIS SOF TWARE Is FURN Ish HED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE W THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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:@ 9 SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
:: RANSFERRED. 
ie phe a ope IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie ay a ae NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
~ COR RPORA TION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Move HEADCNT into FOB's. 


v03-001 PCG0001 


Psee 08-Sep-1981 
Add DIFS$GL “HEADER® oe Sirs L_WEADCNT. 
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ee 
i 
FACILITY: DCL Differences command 
i ABSTRACT: | i 
i The DCL DIFFERENCES command compares the contents of $ 
two files. : 
i ENVIRONMENT : | : 
; VAX native, user mode : 
i? - Rea 
4@ AUTHOR: Peter George, Benn Schreiber CREATION DATE: 1-August-1981 | : 
4 | MODIFIED BY: ; 
4 i v03-004 BLS0146 Benn Schreiber 9-F eb-1982 ; 
: : Add nowild and use SSHR_MSGDEF 3 
4 i v03-003 pwr0012 David Thiel 16-Dec-1981 ; 
0 ! Add DIFS$GL_OUTBSIZ. : 
v03-002 PCG0002 Peter George 23-Sep-1981 : 
i ; 
; ‘ 


tet Cor1She 43:19:18 DESKSYMMASTERC COLE CSReSpaTA.e32;1 “2% | 
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LIBRARY 
"SYSSLIBRARY:STARLET.L32'; 


REQUIRE aoe’ 


"DIFDEF'; 
Define Dif-specific messages as global symbols from shared messages 


SSHR_MSGDEF (DIF, i. : OBAL, 
alue, Severe), 
poeta severe), 
(nowild, severe), 
(openoyé severe) 
openout, severes 


REQUIRE 
' 


' 
i {\logat value for keyword 
i keyuore requires a value 
i wild card spec, Sar 
i error opening ‘‘x"' as input 
i error opening **x’’ as output 
osein, warning) ; ; 
' 
‘ 
' 


VuvuVvVVVVUUU 


' 
: Command parameters 


: error closing ; as input 
Se isesonl warni ng : error closing ‘'x'’ as output 
(readerr, warnin ! error reading ‘'x' 
(writeerr, error ' error writing ‘‘x"’ 
, (parsefail, warning)); ! error parsing ‘'x’’ 
5 Difference global data 
GLOBAL ype | 
difSc_maxlangs = 16; ! Max number of file types known 
CRO 
ia definetype(ext,cdim page 
a CSTRING( 
s CETRING(cdinS, 
WORD ( flags)%; 
GLOBAL 


LSSaLE 


a a a A a a 8 at a a a ht 8 tt es ts ss a ts tt 
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4 
4 
1 rts difSgl_commdesc : desc _decl ae sc for bytter of comment delimiters 
1 403 PRESET(Cdsc$b_class] = dsc k k-¢ lass.) 
1 difSgl_cmdesc : desc née cl tr ng déscriptor for command ‘ine 
1 5 mae og Tied $5$b- class) = dsc k_class_d), | 
1 4 dif$g ot -fonoraes : eds 33 OREdif$Sc-maxcdim], | Flags for comment delimiters. Bit set means first column 
1 8 dif$gl BBLOCK(4) : (legs for characters to ignore 
1 rt d\f$gl header : INITIAL(GIf$c_defheader), No. 9 ngs to skip as header 
1 4 di f$gl-width, {width ral tikes te eas Thetis 
1 #19 dif$gl_match INITIAL CaN the defmatch), i No. of records that constitute a match 
1 1 difSgi=maxdif : INITIAL(EX'7FFFFFFF'), i Maximum number of unmatched records 
1 \¢ difSgi=merged : INITIAL (dif$c ‘een i No. of marched lines to follow each 
1 1 ! List of differences 
1 14 dif$gl_ porate HA ! Same as above for parallel 
1 15 init L (dif$c he el), 
1 1g difSgl_wndwsiz : MINIT IAL Catt c_defwinsiz), ! No. of records to search before 
1 41 ' declaring a mismatch 
1 418 dif$gl_flags : BBLOCK(4), ! Flags 
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VAX-11 Bliss-32 V4.0-74 Page 4 
14-Sep-1984 t 33 8: it DISKSVMSMASTER:COIF ..SRCJDATA.B32;1 : (2) 
dif$gl_parwidth, ! width of parallel Listin 
difSgl ai frec : INITIAL (03. ! No. of difterent recor $ detected 
GifSgl_difsec : INITIAL (0), : No. of difference sections detected 
di f$gl_dumpw dth, ! width of hex/octal data part of Line 
dif$glentspert ine, ' No. of ener tes n a hex/octal Line 
di f$gl_inbuf ! Address of nput record buffer 
dif$gl_ou tbsiz, ' Allocated s a of output buffer 
di f$gl_outbuf ! Address of. the output record buffer 
dif$gi_fa aofullbut : BBLOCK (dif$c_maxfaosiz], ! Hex/octal fao full Line buffer 
dif$gl_faopartbuf : BBLOCK itSe_me ewer iz { ' Hex/octal fao partial Line buffer 
dif$gl-faotulldesc : BBLOCK c. tn}, : String desc for hex/octal full output Line 
dif$gl_faopartdesc : BBLOCK Cdsc$c_ “5 “Bin ! String desc for hex/octal partial output Line 
Input and output file data structures 
difSgl_masdesc : desc.d ! String Soqerspene for input file 
PRESET Casc8o_ class] = dsc$k clas 
di fgal. masrab : $RAB_DECL for” master file 
di f$gl_masnam : REF BBLOtK, | nan olock sor 5 master file (actually pointer to NAM block c 
: n 
difSgl_masrss : rT ae _maxrss), ' Resultant name " werine for master file 
dif$gl-revdesc : desc deci i String descriptor for revision file 
PRESET(Cdsc$b_ class] = dsc$k class_d) 
dif$gl_revrab : $RAB_D RAB for revision file 
di f$gl-revnam : SNAM NAM block for revision file 
dif$gl-revrss : BBLOCK tnansc _maxrss), Resultant name string for revision file 
dif$gl_outdesc : desc decl ! String descriptor for output file 
PRESET (Ldsc$b_ class) = dsc$k class_d), 
dif$gl_outrab : srae. DEC. RAS for output file 
dif$gl_outnam : ae NAM block for output file 
dif$gl_outrss : Spork nam$c _maxrss), ' Output file resultant name string 
dif$gl_outifi, i IFI of output file for close 
EOF RDB's 
dif$gl_maseof BAL9 KCrdb$c Fe? ! For the master file 
PRESET ( rdb pst seria qi f8ot jnaseot. 
rdb$v_permanent rue 
rdb$v_eof] = true 
rgbsy Length = 1§, 
dif$gl_reveof : BBLOCKErdbSc ze] ! For the revision file 
PRESET ({rdb$l_ {Tink = gi f8gl. reveof, 
edbsv_ _permanent rue, 
v_eof] = true 
rdbSw~ length) , 
Input file descriptor blocks 
dif$gl_masfdb : BBLOCK(fdb$c_size ! For the master file 
PRESET (Cfdb$l -05frec = dif$gl_maseot, 
fdb$l“rabptr) = dif$gl-masra 
fdb$\“namptr] = 0, ' nam Mes ach address filled in by difSopen_mas 
fdb$i- cheagents = dif$gl_masdesc, 
orn iacse headcnt) = dif$c_defheader), 
dif$gl_ revidb BBLOCK apse 3 ze “! For the revision file 
PRESET ({fdb$l_eofrec) = dif$gl_reveof, 
fdb$l"rabptr] = dif$gl-revrab, 
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174 76 «#1 fdb$l_namptr] = dif$gl_revnam, 
175 “73 1 Hapst =f tgesc = difSgl_revdesc, 
176 478 1 fapst headcnt = Gi tSc_Getheager), 
if oy ! GifSol typdete : BBLOCKL ftdb$c_sizeedif$c_maxlangs 
123 ‘a det Inet ype 83810111 0) 
18 4 ¢ 1 e inetype(’ BAS’ ,t i". Re 
1 ; 484 1 definetype(* .BLI',':* 0) 
1 5 1 definetype('.CBL',*';',05, 
1 4 1 definetype('.CMD','!;',0), 
185 1 definetype('.COB','*/',3), 'Both in column 1 
1 686 1 definetype(*.com'.''',6), 
1 489 1 definetype('.coR','!' ‘ 
1 90 1 definetype('.FOR'.’ iCocd’,30), 'C, D must be in column 1 
189 91 ~«#1 definetype('.HLP’,'!',0), 
Baa ge etree mage 8) 
efinetype(’. ed pe) 
198 494 1 definetype(’.M ee ban) 
19 95 1 definetype(’.R32",°''.0), 
bo Bt9 : pet tnstypes” RES", te? 
196 0498 1 END !' Of module DATA 
197 0499 0 ELUDOM 


Se Se Ge Ge Oe Ge Se Se Oe Ge Se Ge Se Ge Se Se Ge Ge Se Se Se Ge Se ee 


-TITLE DIF DATA 
-IDENT \v0%-000\ 


-PSECT $PLITS,NOWRT,NOEXE ,2 
P.AAA: .BYTE 
P.AAB: BY 
P.AAC: .BYTE 
P.AAD: 
P.AAE: 
P.AAF: .BY 
P.AAG: .8 
P.AAH: <BYTE 
P.AAI: . 
P.AAJ: .BYTE 
P.AAK: .BY 
P.AAL: . 
P.AAM: 
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-B 
ASCII 
-BYTE 
ASCII 
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PPodeo-1966 25:38: 


32 sft os 
R: CDIF.SRCJDATA.B32; 1 


SGLOBAL$ ,NOEXE ,2 


(3) 


2 P.AAN: OTF 
2F 2A ASCII 
4 P.AAO: .BYTE 
43 2E 3 ASCII 
1 P.AAP: .BYTE 
1 A ASCII 
4 P.AAQ: .BYTE 
43 ‘ 5 ASCII 
40 P.AAR: .BYTE 
1 4) ASCII 
4 42 P.AAS: .BYTE 
46 3 4 ASCII 
47 P.AAT: .BYTE 
43 21 48 ASCII 
4 04D P.AAU: .BYTE 
48 2E Be ASCII 
1 52 P.AAV: .BYTE 
1 5 ASCII 
4 54 P.AAW BYTE 
4D 2E 00055 ASCII 
1 00059 P.AAX: .BYTE 
B QOOSA ASCII 
4 0058 P.AAY BYTE 
4D 2E Obes ASCII 
1 00060 P.AAZ: .BYTE 
B 00061 ASCII 
4 Bpoes P.ABA YTE 
4D 2E 0006 ASCII 
A 00067 P.ABB: .BYTE 
B 000 ASCII 
4 00069 P.ABC: .BYTE 
52 2€ OQ006A ASCII 
1 QOQO6E P.ABD: .BYTE 
1 Q006F ASCII 
4 00070 P.ABE: .BYTE 
52 2E€ 00071 ASCII 
1 00075 P.ABF: .BYTE 
1 00076 ASCII 
-PSECT 
00# 00000 DIFSGL_COMMDESC:: 

BYTE 
02 003 BYTE 
0 -BLKB 

00# 000 DIF SEL CADE SE: 


02 “BYTE 
-BLK 
00014 DIFSGL_IGNORE : : 
00000002 00018 DIFSGL_HEADER: 
0001C DIFSGL_WIDTH: : 
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00000003 
7FFFFFFF 
00000001 
00000000 
7FFRFFFF 


00000000 
00000000 


008 
02 


008 
02 


Meet A 


X-1 ss 
SKSVMSMASTE 
00020 DIFSGL ety 
00024 DIFSGL_MAXDIF: 
LONG * 21474836467 
00028 DIFSGL MERGED: 
0002C DIFSGL ofA EL 
00030 BUFR WSL raasea 
00034 DIFSGL_ itt 
00038 DIFSGL_ -PARWIDTH: : 
O003C DIFSGL_DIFREC:: 
LONG 
00040 DIFSGL_ et 
00044 DIFSGL_ Set wee 3 
00048 DIFSGL_ENTSPERLINE::: 
0004C DIFSGL_INBUF :: 
-BLKB 
00050 DIFSGL OLS 
00054 DIFSGL ie . 
00058 DIFSGL_ -FAOFULLBUF : 
00080 DIFSGL -FAQPARTBUF 5 2: 
OOOAS DIFSGL_ -FAQFULLDESC:: 
00080 DIFSGL_ at hat 
00088 DIFSGL_MASDESC: 
-BYTE 
| 
aB0e¢ DIFSGL ASR: 
00104 DIFSGL_MASNAM: : 
-BLKB 
00108 alata tat “TY 


-32 V 
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00308 paren ities: 


x (3) 
eet 
16 DIFSGL_REVRAB: : 
BLKB 68 
00254 DIFSGL_REVNAM: : 
BLKB (96 
002B4 DIFSGL_REVRSS:: 
-BLKB 255 


byt BATA 15-deon 


Bho H3:18iia | PictvmhaStencch te sacSoara.e3z:1 


008 Matt DIFSGL_oUTDESC:: 


“Byte I ines 
‘ Boas oirscu_oc HRS: ; 


-BLKB 
00400 DIFSGL_OUTNAM: : 


-BLK 
00460 DIFSGL_OUTRSS:: 
BLKB 


96 


80860 pireenoutt tr: x 


. LKB 
00000000° 00564 DIFSGL_MASEOF:: 


4 


eADDRESS DIF SGL_MASEOF 
# 00568 BYTE Of4) ~ 
6C BYTE | 
0 $0 BYTE C9) 
99 1 00 $ .WOR 1 
00000000" 00578 DIFSGL_REVEOF :: 
eADDRESS DIFSGL_REVEOF 
Oe BYTE [4] 
Se BYTE 
-BYTE (9) 


Sooooooeo ocooceco oo 
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F SForo BSronerar AS=sa 


00000000° 00000000° 


006 


DIFSGL_MASF DB: : 
BYT 


WIR 


[ADDRESS GL_MASEOF 
BYTE 


-BYTE 

-ADDRESS DIF SGL_MASRAB 
-LONG 0 

sADDRESS DIF SGL_MASDESC 


DIFSGL_REVFDB:: 


BY C24 

- ADDRESS pit GL _REVEOF 

Pre 12 

-BYTE (4) 

-ADDRESS DIFSGL_REVRAB, DIFSGL_REVNAM, - 
DIF SGL_REVDESC 

»ADDRESS P.AAA, P.AAB 

«WORD 

»ADDRESS P.AAC, P.AAD 

«WORD 

eADDRESS P.AAE, P.AAF 

» WORD 

eADDRESS P.AAG, P.AAH 

- WORD 

-ADDRESS P.AAI, P.AAJ 

oRODRESS P.AAK, P.AAL 


[ADDRESS P.AAM, P.AAN 


DIFSGL_TYPDATA: : 
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DIF _DATA 18-54 541 :38: VAX-11 Bliss-32 v4. 
vou Ve-sep-19be 13:19:18 DISKSYMGHASTERS COLE 
006 8 «WORD 3 
YG ADDRESS P.AAO, P. AAP 
' 4: ~WORD 
pe ADDRESS P.AAQ, P.AAR 
d0¢ “ADDRESS P.AAS, P.AAT 
JUAAE e 
0668 ADDRESS P.AAU, P.AAV 
Ue ° 
06 “ADDRESS P.AAW, P.AAX 
006 «WORD 0 
YG eADDRESS P.AAY, P.AAZ 
‘* e «WORD 0 
4 - ADDRESS P.ABA, P.ABB 
ye «WORD 0 
JUG cee ae. P.ABD 
59M -ADDRESS P.ABE, P.ABF 
D06A2 -WORD 0 
DIF S$_BADVALUE== 7 60 
DIF S_NOVALUE== 7 44 
DIFS_NOWILD== 7 84 
DIFS_OPENIN== 7082140 
DIFS_OPENOUT== 7082148 
DIFS$_CLOSEIN== 7 866 
DIFS$_CLOSEOUT== ‘ 
DIFS_READERR== 70821 
DIFS_WRITEERR== 4 194 
DIF$_PARSEFAIL== 7082568 
DIFSC_MAXLANGS== 16 
PSECT SUMMARY 
Name Bytes Attributes 
SGLOBALS 1700 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
LITS 119 WNOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
- ABS. NOVEC ,NOWRT,NORD ,NOEXE,NOSHR, LCL, AB CON, NOPIC,ALIGN(O) 
Library Statistics 
eecceccoe ya Olg eoreeere Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28 : (SYSLIBISTARLET.L32;1 9776 28 0 581 00:01.0 
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DIF _DATA ge - VAX=11 -32 P 
Mbe2b00 b-tep- 1946 $3:38:Fh Pee RAL PER ChHe sheSoara.esz:1 2% <39 
3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:DATA/OBJ=OBJ$:DATA MSRC$:DATA/UPDATE=(ENMS$:DATA) 

; Size: Oc 3 data bytes 

: Run i 

; Elapsed 

r} ees reey ‘ati. i 

3 poneanes Pun “Min: 3 

3 Y Used: 80 pages 

3; Compi ica Complete 
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| VAX/VMS_V4.0 D_ PROPRIETARY 


